unit uExceptionValorMuitoAlto;

interface

uses
  System.SysUtils, uExceptionSaque;

type
  EValorMuitoAlto = class(ESaque)
    private
      FLimite : double;
    public
      property Limite : Double read FLimite write FLimite;
      constructor create(Limite, ValorSaque : double; MsgErro : string);
  end;

implementation

constructor EValorMuitoAlto.create(Limite, ValorSaque : double; MsgErro : string);
begin
  self.Limite     := Limite;
  self.ValorSaque := ValorSaque;
  self.Message    := MsgErro;
end;

end.
